From e0fdbababfd9a016e058bcef43d0837bad7f43d8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 7 Jun 1993 18:29:36 +0000 Subject: [PATCH] entered into RCS --- lisp/sc.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/sc.el b/lisp/sc.el index 5e75e5203e3..fea88572bfa 100644 --- a/lisp/sc.el +++ b/lisp/sc.el @@ -1106,11 +1106,11 @@ non-blank line after point. generic-citation)) (t nil))))) ;; heuristic #6 -(defun sc-consistant-cite-p (prefix) - "Check current paragraph for consistant citation. +(defun sc-consistent-cite-p (prefix) + "Check current paragraph for consistent citation. Scans to paragraph delineated by (forward|backward)-paragraph to see if all lines start with PREFIX. Returns t if entire paragraph is -consistantly cited, nil otherwise." +consistently cited, nil otherwise." (save-excursion (let ((end (progn (forward-paragraph) (beginning-of-line) @@ -1173,7 +1173,7 @@ Restrict scan to current paragraph." Fill the paragraph containing or following point. Use sc-guess-fill-prefix to find the fill-prefix for the paragraph. -If the paragraph is inconsistantly cited (mixed fill-prefix), then the +If the paragraph is inconsistently cited (mixed fill-prefix), then the user is queried to restrict the the fill to only those lines around point which begin with the fill prefix. @@ -1186,7 +1186,7 @@ paragraph. sc-fill-arg is set by sc-fill-paragraph-manually." (cond ((not fill-prefix) (fill-paragraph sc-fill-arg)) - ((sc-consistant-cite-p fill-prefix) + ((sc-consistent-cite-p fill-prefix) (fill-paragraph sc-fill-arg)) ((y-or-n-p "Inconsistent citation found. Restrict? ") (message "") -- 2.30.2